How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act7/00471.ls

Text File | 1995-03-28 | 559 b | 24 lines

on doblink
  global animstep, animtimer, animinc, animatron
  if the timer > animtimer then
    set animtimer to the timer + 20
    set animstep to animstep + animinc
    if animstep > 4 then
      set animstep to 4
      set animinc to -1
    end if
    if animstep < 1 then
      set animatron to 0
    end if
    set the castNum of sprite 47 to the number of cast ("eye" & animstep)
  end if
end

on setblink
  global animstep, animtimer, animinc, animatron
  set animstep to 1
  set animtimer to the timer + 20
  set animinc to 1
  set animatron to 1
end